inherited fmAddCommon_Agr: TfmAddCommon_Agr
  Left = 464
  Top = 238
  Width = 1208
  Height = 527
  Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1083#1072#1090#1077#1078' '#1085#1072#1083#1080#1095#1085#1099#1084#1080' '#1082' '#1076#1086#1075#1086#1074#1086#1088#1091
  Constraints.MinHeight = 527
  Constraints.MinWidth = 1208
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 462
    Width = 1192
  end
  inherited Panel1: TPanel
    Width = 1192
    inherited BitBtn1: TBitBtn
      Left = 1017
      Top = 9
    end
    inherited BitBtn2: TBitBtn
      Left = 1105
    end
  end
  object Panel4: TPanel [2]
    Left = 0
    Top = 45
    Width = 1192
    Height = 417
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Label18: TLabel
      Left = 8
      Top = 130
      Width = 58
      Height = 13
      Caption = #1050#1090#1086' '#1087#1083#1072#1090#1080#1090
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 176
      Top = 76
      Width = 60
      Height = 13
      Caption = #1057#1091#1084#1084#1072', '#1088#1091#1073'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 76
      Width = 67
      Height = 13
      Caption = #1044#1072#1090#1072' '#1086#1087#1083#1072#1090#1099
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 336
      Top = 76
      Width = 133
      Height = 13
      Caption = #1041#1072#1085#1082#1086#1074#1089#1082#1080#1081' '#1087#1088#1086#1094#1077#1085#1090', '#1088#1091#1073'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label12: TLabel
      Left = 904
      Top = 132
      Width = 76
      Height = 13
      Caption = #1044#1077#1085#1100#1075#1080' '#1087#1088#1080#1085#1103#1083
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 481
      Top = 76
      Width = 164
      Height = 13
      Caption = #1047#1072#1095#1080#1089#1083#1077#1085#1086' '#1085#1072' '#1083'/'#1089' '#1087#1086#1083'. '#1091#1089#1083'., '#1088#1091#1073'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 308
      Width = 152
      Height = 13
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081' '#1082' '#1092#1072#1082#1090#1091' '#1086#1087#1083#1072#1090#1099
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label13: TLabel
      Left = 15
      Top = 197
      Width = 43
      Height = 13
      Caption = #1044#1086#1075#1086#1074#1086#1088
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label14: TLabel
      Left = 177
      Top = 252
      Width = 63
      Height = 13
      Caption = #1044#1077#1081#1089#1090#1074#1091#1077#1090' '#1089
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label15: TLabel
      Left = 333
      Top = 252
      Width = 70
      Height = 13
      Caption = #1044#1077#1081#1089#1090#1074#1091#1077#1090' '#1087#1086
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label16: TLabel
      Left = 19
      Top = 252
      Width = 89
      Height = 13
      Caption = #1044#1072#1090#1072' '#1087#1086#1076#1087#1080#1089#1072#1085#1080#1103
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label17: TLabel
      Left = 491
      Top = 252
      Width = 144
      Height = 13
      Caption = #1057#1088#1091#1082#1090#1091#1088#1085#1086#1077' '#1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label10: TLabel
      Left = 936
      Top = 36
      Width = 186
      Height = 13
      Caption = #1054#1073#1097#1080#1081' '#1073#1072#1083#1083#1072#1085#1089' '#1087#1086' '#1083'/'#1089' '#1087#1086#1083'. '#1091#1089#1083', '#1088#1091#1073'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label19: TLabel
      Left = 653
      Top = 252
      Width = 55
      Height = 13
      Caption = #1055#1086#1076#1087#1080#1089#1072#1085#1090
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object ePADATE: TcxDBDateEdit
      Left = 8
      Top = 93
      DataBinding.DataField = 'PADATE'
      DataBinding.DataSource = dsPAgr
      ParentFont = False
      Properties.DateButtons = [btnClear, btnToday]
      Properties.InputKind = ikMask
      Properties.ReadOnly = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -19
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 0
      Width = 153
    end
    object ePAAMOUNT: TcxDBTextEdit
      Left = 178
      Top = 93
      DataBinding.DataField = 'PAAMOUNT'
      DataBinding.DataSource = dsPAgr
      ParentFont = False
      Properties.IncrementalSearch = False
      Properties.OnEditValueChanged = ePAAMOUNTPropertiesEditValueChanged
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -19
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 1
      Width = 143
    end
    object GroupBox1: TGroupBox
      Left = 7
      Top = 5
      Width = 882
      Height = 66
      Caption = #1055#1086#1083#1091#1095#1072#1090#1077#1083#1100' '#1091#1089#1083#1091#1075
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      object Label5: TLabel
        Left = 8
        Top = 14
        Width = 23
        Height = 13
        Caption = #1060#1048#1054
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 488
        Top = 14
        Width = 80
        Height = 13
        Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076#1077#1085#1080#1103
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 608
        Top = 14
        Width = 19
        Height = 13
        Caption = #1051#1077#1090
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 648
        Top = 14
        Width = 19
        Height = 13
        Caption = #1052#1077#1089
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 688
        Top = 14
        Width = 173
        Height = 13
        Caption = #1054#1073#1088#1072#1079#1086#1074#1072#1090#1077#1083#1100#1085#1086#1077' '#1087#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object cxDBTextEdit1: TcxDBTextEdit
        Left = 8
        Top = 29
        TabStop = False
        DataBinding.DataField = 'PP'
        DataBinding.DataSource = dsPoluchUslug
        ParentFont = False
        Properties.ReadOnly = True
        Style.Color = clMoneyGreen
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = [fsBold]
        Style.Shadow = False
        Style.IsFontAssigned = True
        TabOrder = 0
        Width = 473
      end
      object cxDBTextEdit2: TcxDBTextEdit
        Left = 488
        Top = 29
        TabStop = False
        DataBinding.DataField = 'PDATEBIRTH'
        DataBinding.DataSource = dsPoluchUslug
        ParentFont = False
        Properties.ReadOnly = True
        Style.Color = clMoneyGreen
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = [fsBold]
        Style.Shadow = False
        Style.IsFontAssigned = True
        TabOrder = 1
        Width = 113
      end
      object cxDBTextEdit3: TcxDBTextEdit
        Left = 608
        Top = 29
        TabStop = False
        DataBinding.DataField = 'LET'
        DataBinding.DataSource = dsPoluchUslug
        ParentFont = False
        Properties.ReadOnly = True
        Style.Color = clMoneyGreen
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = [fsBold]
        Style.Shadow = False
        Style.IsFontAssigned = True
        TabOrder = 2
        Width = 33
      end
      object cxDBTextEdit4: TcxDBTextEdit
        Left = 647
        Top = 29
        TabStop = False
        DataBinding.DataField = 'MES'
        DataBinding.DataSource = dsPoluchUslug
        ParentFont = False
        Properties.ReadOnly = True
        Style.Color = clMoneyGreen
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = [fsBold]
        Style.Shadow = False
        Style.IsFontAssigned = True
        TabOrder = 3
        Width = 33
      end
      object cxDBTextEdit5: TcxDBTextEdit
        Left = 688
        Top = 29
        TabStop = False
        DataBinding.DataField = 'OSN_PODR'
        DataBinding.DataSource = dsPoluchUslug
        ParentFont = False
        Properties.ReadOnly = True
        Style.Color = clMoneyGreen
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = [fsBold]
        Style.Shadow = False
        Style.IsFontAssigned = True
        TabOrder = 4
        Width = 185
      end
    end
    object Panel2: TPanel
      Left = 6
      Top = 147
      Width = 884
      Height = 41
      Caption = 'Panel2'
      TabOrder = 3
      DesignSize = (
        884
        41)
      object lcbPayer: TcxDBLookupComboBox
        Left = 5
        Top = 6
        DataBinding.DataField = 'PID'
        DataBinding.DataSource = dsPAgr
        ParentFont = False
        Properties.DropDownListStyle = lsEditList
        Properties.DropDownRows = 15
        Properties.KeyFieldNames = 'PID'
        Properties.ListColumns = <
          item
            Caption = #1060#1048#1054
            FieldName = 'PP'
          end
          item
            Caption = #1057#1090#1072#1090#1091#1089
            FieldName = 'SDNAME'
          end
          item
            Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
            Fixed = True
            FieldName = 'PDATEBIRTH'
          end>
        Properties.ListSource = dsPeople
        Properties.MaxLength = 0
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clBlack
        Style.Font.Height = -15
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.Shadow = False
        Style.IsFontAssigned = True
        TabOrder = 0
        OnClick = lcbPayerClick
        Width = 802
      end
      object bReload: TcxButton
        Tag = 12
        Left = 812
        Top = 6
        Width = 30
        Height = 29
        Hint = #1054#1073#1085#1086#1074#1080#1090#1100' '#1076#1072#1085#1085#1099#1077
        Anchors = [akTop, akRight]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
        Visible = False
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
          33333333333F7777773F33330000324334222222443333377F3733333377F333
          000032244222222222433337F7733FFFFF337F3300003222222AAAAA22243337
          F333F77777F337F30000322222A33333A2224337F33F7333337F337F00003222
          223333333A224337F33733333337F37F00003222222333333A444337FFFF7F33
          3337777300003AAAAAAA33333333333777777733333333330000333333333333
          333333333333333333FFFFFF000033333333333344444433FFFF333333777777
          00003A444333333A22222437777F333337F3333700003A2243333333A2222437
          F37F333333733337000033A224333334422224337337FFFFF7733337000033A2
          22444442222224337F3377777333FF370000333A2222222222AA243337FF3333
          33FF77F700003333AA222222AA33A3333377FFFFFF7733730000333333AAAAAA
          3333333333337777773333330000333333333333333333333333333333333333
          0000}
        LookAndFeel.SkinName = ''
        NumGlyphs = 2
      end
      object bAddMan: TcxButton
        Tag = 12
        Left = 847
        Top = 6
        Width = 30
        Height = 29
        Hint = #1044#1086#1073#1072#1074#1080#1090#1100' '#1095#1077#1083#1086#1074#1077#1082#1072
        Anchors = [akTop, akRight]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        TabStop = False
        Visible = False
        OnClick = bAddManClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000CE0E0000D80E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333387F3333333333333333333333333333387F333333333333344333
          3333333333387F3333333333333443333333333333387F333333333333344333
          3333333333387F3333333333333443333333333333387F333333333333344333
          3333387FFFFFFFFFFFFF3344444444444433387777777F777777334444444444
          4433388888887F8888883333333443333333333333387F333333333333344333
          3333333333387F3333333333333443333333333333387F333333333333344333
          3333333333387F33333333333334433333333333333877333333333333333333
          3333333333388833333333333333333333333333333333333333}
        LookAndFeel.SkinName = ''
        NumGlyphs = 2
      end
    end
    object eProc: TcxTextEdit
      Left = 337
      Top = 93
      TabStop = False
      ParentFont = False
      Properties.ReadOnly = True
      Style.Color = clMoneyGreen
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -19
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 4
      Width = 121
    end
    object lcbPeopleMoney: TcxDBLookupComboBox
      Left = 904
      Top = 151
      DataBinding.DataField = 'PAUSERMONEY'
      DataBinding.DataSource = dsPAgr
      ParentFont = False
      Properties.DropDownRows = 15
      Properties.KeyFieldNames = 'PID'
      Properties.ListColumns = <
        item
          Caption = #1060#1048#1054
          FieldName = 'PP'
        end>
      Properties.ListSource = dsPeopleMoney
      Properties.MaxLength = 0
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 5
      Width = 284
    end
    object cbAcademPlat: TcxCheckBox
      Left = 656
      Top = 84
      Caption = #1055#1083#1072#1090#1077#1078' '#1086#1090' '#1040#1082#1072#1076#1077#1084#1080#1095#1077#1089#1082#1086#1081' '#1075#1080#1084#1085#1072#1079#1080#1080
      ParentFont = False
      Properties.MultiLine = True
      Properties.OnChange = cbAcademPlatPropertiesChange
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.TextColor = clGray
      Style.IsFontAssigned = True
      TabOrder = 6
      Visible = False
      Width = 218
    end
    object lPlat: TcxLabel
      Left = 16
      Top = 154
      Caption = #1053#1054#1059' '#1057#1054#1064' "'#1040#1082#1072#1076#1077#1084#1080#1095#1077#1089#1082#1072#1103' '#1075#1080#1084#1085#1072#1079#1080#1103'"'
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.IsFontAssigned = True
      Visible = False
    end
    object ePAAMOUNTBALANCE: TcxDBTextEdit
      Left = 482
      Top = 93
      DataBinding.DataField = 'PAAMOUNTBALANCE'
      DataBinding.DataSource = dsPAgr
      ParentFont = False
      Properties.IncrementalSearch = False
      Style.Color = clMoneyGreen
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -19
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 8
      Width = 143
    end
    object mPANOTE: TcxDBMemo
      Left = 7
      Top = 330
      DataBinding.DataField = 'PANOTE'
      DataBinding.DataSource = dsPAgr
      ParentFont = False
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -16
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = False
      Style.TextStyle = [fsBold]
      Style.IsFontAssigned = True
      TabOrder = 9
      OnClick = mPANOTEClick
      Height = 71
      Width = 1178
    end
    object lcbAGRID: TcxDBLookupComboBox
      Left = 12
      Top = 216
      DataBinding.DataField = 'AGRID'
      DataBinding.DataSource = dsPAgr
      ParentFont = False
      Properties.Alignment.Horz = taLeftJustify
      Properties.DropDownRows = 15
      Properties.KeyFieldNames = 'AGID'
      Properties.ListColumns = <
        item
          Caption = #8470' '#1044#1086#1075'.'
          Fixed = True
          MinWidth = 6
          Width = 60
          FieldName = 'AGID'
        end
        item
          Caption = #1044#1072#1090#1072' '#1087#1086#1076#1087#1080#1089'.'
          Fixed = True
          MinWidth = 11
          Width = 120
          FieldName = 'DATA_PODP'
        end
        item
          Caption = #1044#1077#1081#1089#1090#1074#1091#1077#1090' '#1089
          Fixed = True
          MinWidth = 11
          Width = 120
          FieldName = 'AGDATEBEGIN'
        end
        item
          Caption = #1044#1077#1081#1089#1090#1074#1091#1077#1090' '#1087#1086
          Fixed = True
          MinWidth = 11
          Width = 120
          FieldName = 'AGDATEEND'
        end
        item
          Caption = #1055#1086#1076#1088#1072#1079#1076#1077#1083#1077#1085#1080#1077
          Fixed = True
          MinWidth = 15
          Width = 80
          FieldName = 'PODRAZD'
        end
        item
          Caption = #1055#1086#1083#1091#1095'. '#1091#1089#1083'.'
          Fixed = True
          Width = 300
          FieldName = 'P_RECIPIENT'
        end
        item
          Caption = #1055#1086#1076#1087#1080#1089#1072#1085#1090
          Fixed = True
          Width = 300
          FieldName = 'PODP'
        end>
      Properties.ListSource = dsAgr
      Properties.MaxLength = 0
      Properties.OnEditValueChanged = lcbAGRIDPropertiesEditValueChanged
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clBlack
      Style.Font.Height = -15
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = []
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 10
      Visible = False
      OnClick = lcbPayerClick
      Width = 1174
    end
    object eAGDATEBEGIN: TcxDBTextEdit
      Left = 176
      Top = 269
      DataBinding.DataField = 'AGDATEBEGIN'
      DataBinding.DataSource = dsAgr
      ParentFont = False
      Properties.IncrementalSearch = False
      Style.Color = clMoneyGreen
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -19
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 11
      Visible = False
      Width = 143
    end
    object eAGDATEEND: TcxDBTextEdit
      Left = 335
      Top = 269
      DataBinding.DataField = 'AGDATEEND'
      DataBinding.DataSource = dsAgr
      ParentFont = False
      Properties.IncrementalSearch = False
      Style.Color = clMoneyGreen
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -19
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 12
      Visible = False
      Width = 143
    end
    object eDATA_PODP: TcxDBTextEdit
      Left = 18
      Top = 269
      DataBinding.DataField = 'DATA_PODP'
      DataBinding.DataSource = dsAgr
      ParentFont = False
      Properties.IncrementalSearch = False
      Style.Color = clMoneyGreen
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -19
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 13
      Visible = False
      Width = 143
    end
    object ePODRAZD: TcxDBTextEdit
      Left = 494
      Top = 269
      DataBinding.DataField = 'PODRAZD'
      DataBinding.DataSource = dsAgr
      ParentFont = False
      Properties.IncrementalSearch = False
      Style.Color = clMoneyGreen
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -19
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 14
      Visible = False
      Width = 143
    end
    object eBalance: TcxTextEdit
      Left = 937
      Top = 53
      TabStop = False
      ParentFont = False
      Properties.ReadOnly = True
      Style.Color = 8421631
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -27
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 15
      Width = 168
    end
    object ePodpisant: TcxDBTextEdit
      Left = 652
      Top = 269
      DataBinding.DataField = 'PODP'
      DataBinding.DataSource = dsAgr
      ParentFont = False
      Properties.IncrementalSearch = False
      Style.Color = clMoneyGreen
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -19
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.Shadow = False
      Style.IsFontAssigned = True
      TabOrder = 16
      Visible = False
      Width = 533
    end
  end
  object dsPeopleMoney: TDataSource
    DataSet = fdsPeopleMoney
    Left = 1072
    Top = 188
  end
  object dsPeople: TDataSource
    DataSet = fdsPeople
    Left = 384
    Top = 160
  end
  object dsPoluchUslug: TDataSource
    Left = 256
    Top = 40
  end
  object dsPAgr: TDataSource
    DataSet = fdsPaymantAgr
    Left = 384
    Top = 5
  end
  object fdsPaymantAgr: TpFIBDataSet
    CachedUpdates = True
    UpdateSQL.Strings = (
      'UPDATE PAYMANTS_AGR'
      'SET '
      '    AGRID = :AGRID,'
      '    PID_POLUCH = :PID_POLUCH,'
      '    PAFORM = :PAFORM,'
      '    PAAMOUNT = :PAAMOUNT,'
      '    PABANKPERCENTS = :PABANKPERCENTS,'
      '    PAAMOUNTBALANCE = :PAAMOUNTBALANCE,'
      '    PADATE = :PADATE,'
      '    PID = :PID,'
      '    PANOTE = :PANOTE,'
      '    PAISDELETE = :PAISDELETE,'
      '    PANUMUSER = :PANUMUSER,'
      '    JLID = :JLID,'
      '    PAUSERMONEY = :PAUSERMONEY,'
      '    BPID = :BPID,'
      '    RPID = :RPID,'
      '    CSID = :CSID'
      'WHERE'
      '    PAID = :OLD_PAID'
      '    ')
    DeleteSQL.Strings = (
      'DELETE FROM'
      '    PAYMANTS_AGR'
      'WHERE'
      '        PAID = :OLD_PAID'
      '    ')
    InsertSQL.Strings = (
      'INSERT INTO PAYMANTS_AGR('
      '    PAID,'
      '    AGRID,'
      '    PID_POLUCH,'
      '    PAFORM,'
      '    PAAMOUNT,'
      '    PABANKPERCENTS,'
      '    PAAMOUNTBALANCE,'
      '    PADATE,'
      '    PID,'
      '    PANOTE,'
      '    PAISDELETE,'
      '    PANUMUSER,'
      '    JLID,'
      '    PAUSERMONEY,'
      '    BPID,'
      '    RPID,'
      '    CSID'
      ')'
      'VALUES('
      '    :PAID,'
      '    :AGRID,'
      '    :PID_POLUCH,'
      '    :PAFORM,'
      '    :PAAMOUNT,'
      '    :PABANKPERCENTS,'
      '    :PAAMOUNTBALANCE,'
      '    :PADATE,'
      '    :PID,'
      '    :PANOTE,'
      '    :PAISDELETE,'
      '    :PANUMUSER,'
      '    :JLID,'
      '    :PAUSERMONEY,'
      '    :BPID,'
      '    :RPID,'
      '    :CSID'
      ')')
    RefreshSQL.Strings = (
      'select * from paymants_agr pa'
      'where(  pa.paid = :paid'
      'and pa.paisdelete is null'
      '     ) and (     PA.PAID = :OLD_PAID'
      '     )'
      '    ')
    SelectSQL.Strings = (
      'select * from paymants_agr pa'
      'where pa.paid = :paid'
      'and pa.paisdelete is null')
    AutoUpdateOptions.UpdateTableName = 'PAYMANTS_AGR'
    AutoUpdateOptions.KeyFields = 'PAID'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    AutoUpdateOptions.GeneratorName = 'GEN_PAYMANTS_AGR_ID'
    AutoUpdateOptions.UpdateOnlyModifiedFields = True
    AutoUpdateOptions.WhenGetGenID = wgOnNewRecord
    AutoUpdateOptions.SeparateBlobUpdate = True
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    UpdateTransaction = DMInv.trFibWrite
    Left = 416
    Top = 5
    oStartTransaction = False
    object fdsPaymantAgrPAID: TFIBIntegerField
      FieldName = 'PAID'
      Origin = 'PAYMANTS_AGR.PAID'
    end
    object fdsPaymantAgrAGRID: TFIBIntegerField
      FieldName = 'AGRID'
      Origin = 'PAYMANTS_AGR.AGRID'
    end
    object fdsPaymantAgrPID_POLUCH: TFIBIntegerField
      FieldName = 'PID_POLUCH'
      Origin = 'PAYMANTS_AGR.PID_POLUCH'
    end
    object fdsPaymantAgrPAFORM: TFIBIntegerField
      FieldName = 'PAFORM'
      Origin = 'PAYMANTS_AGR.PAFORM'
    end
    object fdsPaymantAgrPAAMOUNT: TFIBBCDField
      FieldName = 'PAAMOUNT'
      Origin = 'PAYMANTS_AGR.PAAMOUNT'
      Size = 2
      RoundByScale = True
    end
    object fdsPaymantAgrPABANKPERCENTS: TFIBBCDField
      FieldName = 'PABANKPERCENTS'
      Origin = 'PAYMANTS_AGR.PABANKPERCENTS'
      Size = 2
      RoundByScale = True
    end
    object fdsPaymantAgrPAAMOUNTBALANCE: TFIBBCDField
      FieldName = 'PAAMOUNTBALANCE'
      Origin = 'PAYMANTS_AGR.PAAMOUNTBALANCE'
      Size = 2
      RoundByScale = True
    end
    object fdsPaymantAgrPADATE: TFIBDateField
      FieldName = 'PADATE'
      Origin = 'PAYMANTS_AGR.PADATE'
    end
    object fdsPaymantAgrPID: TFIBIntegerField
      FieldName = 'PID'
      Origin = 'PAYMANTS_AGR.PID'
    end
    object fdsPaymantAgrPANOTE: TFIBStringField
      FieldName = 'PANOTE'
      Origin = 'PAYMANTS_AGR.PANOTE'
      Size = 255
      EmptyStrToNull = True
    end
    object fdsPaymantAgrPAUSERENTER: TFIBStringField
      FieldName = 'PAUSERENTER'
      Origin = 'PAYMANTS_AGR.PAUSERENTER'
      Size = 40
      EmptyStrToNull = True
    end
    object fdsPaymantAgrPATIMEENTER: TFIBDateTimeField
      FieldName = 'PATIMEENTER'
      Origin = 'PAYMANTS_AGR.PATIMEENTER'
    end
    object fdsPaymantAgrPAUSEREDIT: TFIBStringField
      FieldName = 'PAUSEREDIT'
      Origin = 'PAYMANTS_AGR.PAUSEREDIT'
      Size = 40
      EmptyStrToNull = True
    end
    object fdsPaymantAgrPATIMEEDIT: TFIBDateTimeField
      FieldName = 'PATIMEEDIT'
      Origin = 'PAYMANTS_AGR.PATIMEEDIT'
    end
    object fdsPaymantAgrPAISDELETE: TFIBIntegerField
      FieldName = 'PAISDELETE'
      Origin = 'PAYMANTS_AGR.PAISDELETE'
    end
    object fdsPaymantAgrPANUMUSER: TFIBIntegerField
      FieldName = 'PANUMUSER'
      Origin = 'PAYMANTS_AGR.PANUMUSER'
    end
    object fdsPaymantAgrJLID: TFIBIntegerField
      FieldName = 'JLID'
      Origin = 'PAYMANTS_AGR.JLID'
    end
    object fdsPaymantAgrPAUSERMONEY: TFIBIntegerField
      FieldName = 'PAUSERMONEY'
      Origin = 'PAYMANTS_AGR.PAUSERMONEY'
    end
    object fdsPaymantAgrBPID: TFIBIntegerField
      FieldName = 'BPID'
      Origin = 'PAYMANTS_AGR.BPID'
    end
    object fdsPaymantAgrRPID: TFIBIntegerField
      FieldName = 'RPID'
      Origin = 'PAYMANTS_AGR.RPID'
    end
    object fdsPaymantAgrCSID: TFIBIntegerField
      FieldName = 'CSID'
      Origin = 'PAYMANTS_AGR.CSID'
    end
  end
  object dsAgr: TDataSource
    DataSet = fdsAgr
    Left = 72
    Top = 224
  end
  object fdsAgr: TpFIBDataSet
    SelectSQL.Strings = (
      
        'SELECT A.AGID, A.AGDATEBEGIN, A.AGDATEEND, CAST(A.AGTIMEENTER AS' +
        ' DATE) AS data_podp,'
      'CASE a.AGPODRTYPE'
      'WHEN 0 THEN '#39#1044'/'#1089#39
      'WHEN 1 THEN '#39#1043#1080#1084#1085#1072#1079'.'#39
      'WHEN 2 THEN '#39#1057#1088'. '#1096#1082'.'#39
      'WHEN 3 THEN '#39#1057#1090'. '#1096#1082'.'#39
      'WHEN 4 THEN '#39#1051#1072#1075#1077#1088#1100#39
      'END AS podrazd,'
      
        '(P_res.PLASTNAME||'#39' '#39'||P_res.PNAME||'#39' '#39'||COALESCE(P_res.PPATRONY' +
        'MIC,'#39' '#39')) AS P_RECIPIENT,'
      
        ' CAST( trim(LIST((P.PLASTNAME||'#39' '#39'||P.PNAME||'#39' '#39'||COALESCE(P.PPA' +
        'TRONYMIC,'#39' '#39')), '#39', '#39')) AS VARCHAR(500)) AS podp'
      'FROM AGREEMENTS A'
      'LEFT OUTER JOIN AGR_POLUCH_USLUG APU ON apu.AGID = A.AGID'
      'LEFT OUTER JOIN PEOPLE P_res ON P_res.PID = APU.PID '
      'LEFT OUTER JOIN AGR_PODPISANT AP ON AP.AGID = A.AGID'
      'LEFT OUTER JOIN PEOPLE P ON P.PID = AP.PID'
      'WHERE A.AGISDELETE IS NULL'
      'AND APU.PID = :PID'
      'AND AP.POTYPE = 0'
      'GROUP BY 1,2,3,4,5,6'
      'UNION'
      
        'SELECT A.AGID, A.AGDATEBEGIN, A.AGDATEEND, CAST(A.AGTIMEENTER AS' +
        ' DATE) AS data_podp,'
      'CASE a.AGPODRTYPE'
      'WHEN 0 THEN '#39#1044'/'#1089#39
      'WHEN 1 THEN '#39#1043#1080#1084#1085#1072#1079'.'#39
      'WHEN 2 THEN '#39#1057#1088'. '#1096#1082'.'#39
      'WHEN 3 THEN '#39#1057#1090'. '#1096#1082'.'#39
      'WHEN 4 THEN '#39#1051#1072#1075#1077#1088#1100#39
      'END AS podrazd,'
      
        '(P_res.PLASTNAME||'#39' '#39'||P_res.PNAME||'#39' '#39'||COALESCE(P_res.PPATRONY' +
        'MIC,'#39' '#39')) AS P_RECIPIENT,'
      
        ' CAST( trim(LIST(COALESCE(sd.SDNAME, jl.JLOPF)||'#39' "'#39'||jl.JLEGALN' +
        'AME||'#39'" '#39', '#39', '#39')) AS VARCHAR(500)) AS podp'
      'FROM AGREEMENTS A'
      'LEFT OUTER JOIN AGR_POLUCH_USLUG APU ON apu.AGID = A.AGID'
      'LEFT OUTER JOIN PEOPLE P_res ON P_res.PID = APU.PID '
      'LEFT OUTER JOIN AGR_PODPISANT AP ON AP.AGID = A.AGID'
      'LEFT OUTER JOIN JURLITSA jl ON jl.JLID = ap.ID_JURIDICAL_FACE'
      'LEFT OUTER JOIN SYS_DIC SD ON SD.SDID = jl.JLOPFSDID'
      'WHERE A.AGISDELETE IS NULL'
      'AND APU.PID = :PID'
      'AND AP.POTYPE = 1'
      'GROUP BY 1,2,3,4,5,6'
      'union'
      
        'SELECT null as AGID, null as AGDATEBEGIN, null as AGDATEEND, nul' +
        'l as data_podp,'
      'null as podrazd, null AS P_RECIPIENT, null as podp '
      'from rdb$database'
      'order by 1')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 104
    Top = 224
    object fdsAgrAGID: TFIBIntegerField
      FieldName = 'AGID'
      Origin = 'AGREEMENTS.AGID'
    end
    object fdsAgrAGDATEBEGIN: TFIBDateField
      FieldName = 'AGDATEBEGIN'
      Origin = 'AGREEMENTS.AGDATEBEGIN'
    end
    object fdsAgrAGDATEEND: TFIBDateField
      FieldName = 'AGDATEEND'
      Origin = 'AGREEMENTS.AGDATEEND'
    end
    object fdsAgrDATA_PODP: TFIBDateField
      FieldName = 'DATA_PODP'
    end
    object fdsAgrPODRAZD: TFIBStringField
      FieldName = 'PODRAZD'
      Size = 7
      EmptyStrToNull = True
    end
    object fdsAgrP_RECIPIENT: TFIBStringField
      FieldName = 'P_RECIPIENT'
      Size = 767
      EmptyStrToNull = True
    end
    object fdsAgrPODP: TFIBStringField
      FieldName = 'PODP'
      Size = 500
      EmptyStrToNull = True
    end
  end
  object fdsPeople: TpFIBDataSet
    SelectSQL.Strings = (
      'select P.PID,'
      
        '       (coalesce(P.PLASTNAME, '#39' '#39') || '#39' '#39' || coalesce(P.PNAME, '#39 +
        ' '#39') || '#39' '#39' || coalesce(P.PPATRONYMIC, '#39' '#39')) as PP,'
      
        '        IIF(PS.SDID IN (1246,1248), SD.SDNAME, COALESCE(dol.sdna' +
        'me, '#39#1042#1080#1079#1080#1090#1077#1088#39') ) AS SDNAME,'
      '        p.PDATEBIRTH'
      'from PEOPLE P'
      'left outer join P_STATUS PS on PS.PID = P.PID'
      'left outer join SYS_DIC SD on SD.SDID = PS.SDID'
      'LEFT OUTER JOIN'
      '('
      'SELECT d.PID, sd.SDNAME'
      'FROM DOLJNOST_PEOPLE d'
      'INNER JOIN DOLJNOST D1 ON d1.DOLID = d.DOLID'
      'INNER JOIN SYS_DIC SD ON SD.SDID = d1.SDID'
      'WHERE d.DOLISDELETE IS NULL'
      
        'AND CURRENT_DATE BETWEEN D.DOLDATEBEGIN AND COALESCE(d.DOLDATEEN' +
        'D, CURRENT_DATE)'
      ') AS dol ON DOL.pid = p.pid'
      'where P.PISDELETE is null')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 416
    Top = 160
    object fdsPeoplePID: TFIBIntegerField
      FieldName = 'PID'
      Origin = 'PEOPLE.PID'
    end
    object fdsPeoplePP: TFIBStringField
      FieldName = 'PP'
      Size = 767
      EmptyStrToNull = True
    end
    object fdsPeopleSDNAME: TFIBStringField
      FieldName = 'SDNAME'
      Size = 255
      EmptyStrToNull = True
    end
    object fdsPeoplePDATEBIRTH: TFIBDateField
      FieldName = 'PDATEBIRTH'
    end
  end
  object fqBalance: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      'SELECT COALESCE(t.BALANCE, 0) + cast(:param as'
      ' d_float) AS balance'
      'FROM P_BALANCE_AGR t'
      'WHERE t.PID = :pid'
      '')
    Left = 976
    Top = 45
  end
  object fdsPeopleMoney: TpFIBDataSet
    SelectSQL.Strings = (
      
        'SELECT P.PID, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,' +
        #39' '#39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP'
      'FROM PEOPLE P'
      'INNER JOIN USERMONEY UM ON UM.PID = P.PID'
      'WHERE P.PISDELETE IS NULL'
      'ORDER BY 2')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 1106
    Top = 188
    object fdsPeopleMoneyPID: TFIBIntegerField
      FieldName = 'PID'
    end
    object fdsPeopleMoneyPP: TFIBStringField
      FieldName = 'PP'
      Size = 767
      EmptyStrToNull = True
    end
  end
  object qUserGenSelect: TpFIBQuery
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    SQL.Strings = (
      'SELECT U.BUHGENERATOR'
      'FROM USERS U'
      'WHERE U.PID = :gUserID')
    Left = 640
    Top = 13
  end
  object qUserGenSet: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'UPDATE USERS SET BUHGENERATOR = :BUHGENERATOR'
      'WHERE USERS.PID= :gUserID')
    Left = 680
    Top = 13
  end
  object fqLockPaymants_Agr: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'select * from paymants_agr pa'
      'where pa.paid = :paid'
      'and pa.paisdelete is null'
      'for update with lock')
    Left = 464
    Top = 8
  end
  object qDolg: TpFIBQuery
    Transaction = DMInv.trFibWrite
    Database = DMInv.db
    SQL.Strings = (
      'EXECUTE PROCEDURE SP_BALANCE (:PID)')
    Left = 896
    Top = 5
  end
  object fdsBankPercent: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT P.PMVALUE'
      '  FROM PARAMS P'
      ' WHERE P.PMID = 8')
    Transaction = DMInv.trFibRead
    Database = DMInv.db
    Left = 416
    Top = 56
  end
end
